<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>2</cardCount>
<cardID>4937</cardID>
<listID>3986</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>640</width>
<height>480</height>
</cardSize>
<script>-- Media Clips™-- RELEASE v.4.1-- Written by Bill Dawson-- for Aris Entertainment™--• Externals Used In This Stack-- XFCN-- FindInField*,FileVersion**,GetDir,SystemPath*,Ants**,IsFile*,-- CDDriveList*,SCSIIDToName*,FolderPath*,FolderContents,Resources***,ChangeStr,ResFilOpen,-- ResNamExists,wsGet***,WindowScript***,ResourceList***,ScreenInfo***,NewFileName*-- XCMD-- About**,CopyFile******,Textoid****,PutAlert*****,PICTToClip****,FindInXCMD*,CreateFolder,-- ResRemove,QTMovie*,QTPict*,ResFilClose,UseResFil,ResRename,CopyRes,wsSend***,wsSet***-- ClipToPict****-- * © Apple Computer, Inc.-- ** © Copyright 1988 - 90 by Jay Hodgdon, Ignatz Software-- *** © Heizer Software, Lee Buck-- **** © Frederic Rinaldi, 1990,1991-- ***** © 1989 by S.Koren & COM~LINK-- ****** © Guy de Picciotto--• Stack Scriptson openStackglobal pList,ifBackground,windowName,theProgress,theDialog,stackOpen,theSplashcheckCPUtypeextractPrefsif ifBackground = TRUE then get windowScript("Blackout")if last item of screenInfo(MAIN) = 342 thenput "Splash(LC)"into theSplash -- LCelse put "Aris Splash" into theSplashhide card windowif stackOpen ≠ TRUE then play "aris.logo"put TRUE into stackOpenget WindowScript(theSplash&return&"i0_IdleDelay:30"&return&"i3_Value:0"&return&"i3_Visible:TRUE")set cursor to watchshowPictureend openStackon checkCPUtype -- more robust next time, but it's deadline now!hide the scroll windowset the cantModify of this stack to FALSEset the rect of this card to (word 2 to 5 of screenInfo(MAIN))set the rect of the card window to (word 2 to 5 of screenInfo(MAIN))end checkCPUtypeon cleanUpglobal windowNamekillOpenWindowsif there is a window windowName then close window windowNameKillAboutkillPaletteclosePalettedeleteMenulock screen-- show splash screen (Aris Logo) momentarily to reset CLUTpicture "Goodbye",resource,dialogwait 3 secclose window "Goodbye"if there is a window "Blackout" then close window "Blackout"show cd windowend cleanUpon idleglobal moviePlaying,newPictif moviePlaying ≠ TRUE then checkWindowif newPict = TRUE thenput FALSE into newPictshowPictureend ifcheckPaletteif the sound = "done" then stopSoundend idleon killOpenWindowsglobal pictureList,checkPICT,theOid,windowName,lastPictID,currPictIDset cursor to 4if currPictID ≠ lastPictID and there is a window id lastPictID then close window id lastPictIDif there is a window theOid then close window theOidput TRUE into checkPICTend killOpenWindows--• Pictureson openPicture whichglobal currPictIDput id of window which into currPictIDend openPictureon showPictureglobal windowName,pDepth,pSize,pStyle,altPath,lastSnd,ifSound,currPictID,lastPictID,ifXL, theSplashif there is a window theSplash then close window theSplashset cursor to 4if altPath ≠ empty thencheckBitDepthset cursor to watchif pSize = "" and pDepth = "24 Bit" and item 3 of screenInfo(Main) ≥ 640 and ifXL = TRUE thenif isFile(locateF() & pDepth & " XL" & ":"&windowName) then put " XL" into pSizeend ifput getEOF(locateF() & pDepth & pSize & ":"&windowName) into bufferSizeif (bufferSize * 2) + 301 < the heapSpace thenput currPictID into lastPictIDpicture locateF() & pDepth & pSize & ":"&windowName,file,pStyle,truekillOpenWindowselse if bufferSize + 301 > the heapSpace thenif there is a window id currPictID then close window id currPictIDkillOpenWindowsput currPictID into lastPictIDpicture locateF() & pDepth & pSize & ":"&windowName,file,pStyle,true,0elseif there is a window id currPictID then close window id currPictIDkillOpenWindowsput currPictID into lastPictIDpicture locateF() & pDepth & pSize & ":"&windowName,file,pStyle,falseend ifput FALSE into newSizecheckWindowgetInfoif ifSound thenplaySoundend ifelselistDirend ifcheckWindowend showPictureon closePicture windowNameglobal windowName,pictureListcheckwindowend closePictureon mouseDownInPictureglobal theSplashif there is a window theSplash thenhide window theSplashclose window theSplashshowPictureend ifwait 10if the mouseClick then doZoomend mouseDownInPicture--• Menuson createMenuif there is a menu "Aris™" then exit createMenucreate menu "Aris™"put createMenuItems() into menu "Aris™" -- with menuMsg createMenuMsgs()if there is a menu "Edit" thenif last menuItem of menu "Edit" = "Icon..." thenset commandChar of last menuItem of menu "Edit" to ""end ifend ifset the commandChar of menuItem 3 of menu "Aris™" to "9"set the commandChar of menuItem 5 of menu "Aris™" to "I"set the commandChar of menuItem 9 of menu "Aris™" to "?"end createMenufunction createMenuItemsreturn "Sound" & return & ¬"-" & return & ¬"Palette" & return & ¬"-" & return & ¬"Show Info..." & return & ¬"Preferences" & return & ¬"-" & return & ¬"Switch Disks..." & return & ¬"Help" & returnend createMenuItemsfunction createMenuMsgsreturn "" & return & ¬"" & return & ¬"" & return & ¬"" & return & ¬"" & return & ¬"" & return & ¬"" & return & ¬"" & return & ¬"" & returnend createMenuMsgson deleteMenuif there is a menu "Aris™" then delete menu "Aris™"end deleteMenuon doMenu whichMenuglobal ifSound,ifInfo,useAltPath,altPath,paletteNameif whichMenu = "Sound" thenif the checkmark of menuItem "Sound" of menu "Aris™" = FALSE thenset the checkmark of menuItem "Sound" of menu "Aris™" to TRUEput TRUE into ifSoundplaySoundelseset the checkmark of menuItem "Sound" of menu "Aris™" to FALSEput FALSE into ifSoundend ifelse if whichMenu = "Palette" thenif the checkmark of menuItem "Palette" of menu "Aris™" = FALSE thencreatePaletteelsekillPaletteend ifelse if whichMenu = "Show Info..." thenif the checkmark of menuItem "Show Info..." of menu "Aris™" = FALSE thenset the checkmark of menuItem "Show Info..." of menu "Aris™" to TRUEput TRUE into ifInfodoAboutelseset the checkmark of menuItem "Show Info..." of menu "Aris™" to FALSEput FALSE into ifInfodoAboutend ifelse if whichMenu = "Preferences" thensend showPrefs to cardelse if whichMenu = "Help" thenputAlert "",108 -- Palette Helpif the result = 2 thenputAlert "",105 -- Menu Helpif the result = 2 then doMenu "Help"end ifelse if whichMenu = "Compact Stack" thenkillPaletteif there is a window "Blackout" then close window "Blackout"pass doMenuelse if whichMenu = "About Hypercard..." thenglobal windowName,theSplashget ResFilOpen(value of word 2 of the long name of this stack)if there is a window windowName then hide window windowNamepicture "a", resource, dialogclose window "a"get item 5 of the long version of this stackconvert it to short dateget WindowScript(theSplash&return&"i2_Text:"&"Version"&&fileVersion("short")&&"-" && it)if there is a window windowName thenshow window windowNameend ifelse if whichMenu = "Find..." then goFindelse if whichMenu = "Switch Disks..." thenget FolderPath("Please locate a “Media Clips™” Disk or Folder for me.")if it ≠ empty thenput it into altPathput TRUE into useAltPathshowFirstend ifelse if whichMenu = "First" thenshowFirstelse if whichMenu = "Next" thenshowNextelse if whichMenu = "Prev" thenshowPrevelse if whichMenu = "Last" thenshowLastelse if whichMenu = "Quit Hypercard" thencleanUppass doMenuelse pass doMenuend doMenuon makeAboutAbout "About Media Clips™..."end makeAbouton KillAboutAbout "About Hypercard..."end killAbout--• Paletteon createPaletteglobal paletteName,pLocset checkmark of menuItem "Palette" of menu "Aris™" to TRUEget FolderContents(locateF("Movies") & "Movies:",files,"noDialog")if it contains "Sorry" or it is empty or hasQT() = FALSE then put "wsPaletteSM" into paletteNameelse put "wsPalette" into paletteNameif pLoc = empty thenif paletteName contains "Sm" thenput (item 3 of the screenrect - 406)/2 & "," & item 4 of the screenrect - 53 into pLocelse put (item 3 of the screenrect - 440)/2 & "," & item 4 of the screenrect - 53 into pLocend ifif there is a window paletteName thenshow window paletteNameexit createPaletteelseget windowScript(paletteName & return & "i0_TopLeft:" & pLoc)end ifend createPaletteon createPaletteZglobal pLoc,paletteNameput "z" into char 1 of paletteNameif pLoc = empty thenput (item 3 of the screenrect - 440)/2 & "," & ¬item 4 of the screenrect - 53 into pLocend ifif there is a window paletteName thenshow window paletteNameexit createPaletteZelsepalette paletteName,pLocend ifend createPaletteZon switchPalette whichif which = on thenkillPalettecreatePaletteZelse if which = off thenkillPalettecreatePaletteend ifend switchPaletteon checkPaletteglobal paletteNameif there is a window paletteName thensend "bringtofront" to window paletteNameshow window paletteNameend ifend checkPaletteon checkWindowglobal windowNameif there is a window blackout then wsSend Blackout,0,"sendtoback"if there is a window windowName then show window windowNameend checkWindowon killPaletteglobal paletteNameif there is a window paletteName then close window paletteNameset checkmark of menuItem "Palette" of menu "Aris™" to FALSEend killPaletteon openPaletteset the checkmark of menuItem "Palette" of menu "Aris™" to TRUEend openPaletteon closePaletteglobal pLoc,paletteNameif there is a window paletteName thenput the loc of window paletteName into pLocend ifif there is a menu "Aris™" thenset the checkmark of menuItem "Palette" of menu "Aris™" to FALSEend ifend closePalettefunction ifPaletteglobal paletteNameif there is a window paletteName thenreturn TRUEelse return FALSEend ifPalette--• Palette Handlerson showFirstglobal pList,windowName,theOidif pList = empty then listDirput line 1 of pList into windowNameshowPictureend showFirston showPrevglobal pList,windowName,theOidif pList = empty then listDirget findInField(pList,windowName,"",0)if item 3 of it ≠ 1 then put item 1 of it into startelse put 0 into startget item 2 of findInField(pList,windowName,"",start)if it = 1 then put line (number of lines of pList) of pList into windowNameelse put line it - 1 of pList into windowNameshowPictureend showPrevon showNextglobal pList,windowName,pList,theOidif pList = empty then listDirget findInField(pList,windowName,"",0)if item 3 of it ≠ 1 then put item 1 of it into startelse put 0 into startget item 2 of findInField(pList,windowName,"",start)if it ≠ (number of lines of pList) thenput line item 2 of findInField(pList,windowName,"",start) + 1 of pList into windowNameelse put line 1 of pList into windowNameshowPictureend showNexton showLastglobal pList,windowName,theOidif pList = empty then listDirput last line of pList into windowNameshowPictureend showLaston Save2diskglobal windowName,fileName,newName,pDepth,pSize,moviePlayingif moviePlaying ≠ TRUE thenputAlert "",107if the result = 2 then exit Save2Diskelse if the result = 3 then put "pict" into theReselse if the result = 4 then put "pict" into theReselse if the result = 5 then put "snd" into theReselse if the result = 6 then put "snd" into theResif theRes = empty thenexit Save2Diskelse if theRes = "pict" thenput locateF() & pDepth & pSize & ":" & windowName into fileNameelse if theRes = "snd" thenput locateF() & "Snd Files:" & windowName into fileNameend ifask file "Save" && theRes && "file as:" with windowName & "." & theResif it ≠ empty thenput it into newNamecopyFile fileName, newName, oif the result = "0" thenif theRes = "snd" then put changeFileType(newName,"sfile","movr") into smChangeanswer "“" & theRes & "”" && "file copied successfully!" with "Cool!"else answer "Unable to complete operation." with "Sorry"end ifelse answer "Exporting movies is not yet implimented." & return & return &¬"Quit and copy movie from the “Movies” folder." with "Rats!"end save2diskon goFindglobal findMe,numHit,searchHits,ifFind,hitPathif there is not a window "Find" thenget windowScript("Find" & return & "i0_Height:72"¬& return & "i2_Text:" & findMe & return & "i7_Text:" & numHit¬& return & "i9_Wordwrap:TRUE" & return & "i12_Visible:FALSE")set "i8_Text" of window "Find" to searchHitsset "i9_Text" of window "Find" to hitPathend ifend goFind-- *No longer a Palette handler, but used on mouseDownInPicture*on doZoomglobal windowName,theOid,pDepth,pSize,pStyle,smallStyle,ThumbStyle,FullStyleif there is a window windowName then close window windowNameif pSize contains "small" thengetFullelse if pSize contains "Thumbnails" thengetSmallelsegetThumbend ifend doZoomon doExportglobal windowName,pDepth,pSize,newRect,fileName,newName,moviePlaying,nowPlayingput the visible of cd window into restoreWindowshow cd windowcheckPaletteif there is a window "Blackout" then send "Sendtoback" to window "Blackout"show window windowNameput locateF() & pDepth & pSize & ":" & windowName into fileNameput the rect of cd window into cdRectput the rect of window windowName into subRectput ants() into theRect -- the rect returned from the user’s selectionput item 1 of cdRect + item 1 of theRect - item 1 of subRect into item 1 of newRectput item 2 of cdRect + item 2 of theRect - item 2 of subRect into item 2 of newRectput item 3 of theRect - item 1 of theRect + item 1 of newRect into item 3 of newRectput item 4 of theRect - item 2 of theRect + item 2 of newRect into item 4 of newRectset cursor to watchif moviePlaying ≠ TRUE thenask file "Name for new PICT file" with windowName & ".pict"else ask file "Save movie clip as:" with nowPlaying & ".movie clip"if it ≠ empty thenset cursor to watchput it into newNamePICTToClip fileName,"False",newRectput ClipToPict(newName,MDRW) into resultif the result contains "Error" thenanswer "Not enough memory to complete operation." & return &¬"Try “Save to Disk” or “Quit” & try again." with "Sorry"elseput changeFileType(newName,"PICT","8BIM") into smChangeend ifend ifset the visible of cd window to restoreWindowend doExporton playSound xglobal windowName,lastSnd,myRefNum,ifSlideShow,paletteName,sndfileName,stopShowif ifSlideShow = empty then put false into ifSlideShowif windowName ≠ lastSnd thenput locateF() & "Snd Files:" & windowName into sndfileNameend ifput windowName into lastSndif ifSlideShow thenif the sound is "done" thenset cursor to 4playItAgainSoundm sndFileName,windowNameput windowName into the soundelseplay stopput "done" into the soundcreatePaletteend ifexit playSoundend ifif the sound ≠ "done" thenplay stopput "done" into the soundif paletteName contains "Sm" thenset i6_Name of window paletteName to nosoundelse set i7_Name of window paletteName to nosoundelseif paletteName contains "Sm" thenset i6_Name of window paletteName to soundelse set i7_Name of window paletteName to soundset cursor to 4playItAgainSound sndFileName,windowNameput windowName into the soundend ifend playSoundon stopSoundglobal paletteNameif there is a window paletteName thenif paletteName contains "Sm" thenif i6_Name of window paletteName ≠ nosound thenset i6_Name of window paletteName to nosoundend ifelseif i7_Name of window paletteName ≠ nosound thenset i7_Name of window paletteName to nosoundend ifend ifend ifend stopSoundon sndPickercheckColorif there is not a window "Sound Picker" thenget windowScript("Sound Picker")send BuildSndList to cardset i1_GrowItem of window "Sound Picker" to trueend ifend sndPickeron getPICT-- Picture "Picker" windowglobal pDepth,pSize,windowName,myRefNumber,ICNfileName,pListif there is not a window "Picture Picker" thenif there is a window windowName then hide window windowNameput locateF() & "Data:" & discName() & ".Resources" into ICNfileNameif isFile(ICNfilename) ≠ TRUE thenput thisPath() & discName() & ".Resources" into ICNfileNameend ifif isFile(ICNfilename) and the optionKey = UP thenif pDepth ≠ "24 bit" then picture "a", resource, dialogget windowScript("Picture Picker")put ResourceList(ICNfileName,"ICN#","ID") into xput resFilOpen(ICNfileName) into myRefNumberset i1_Text of window "Picture Picker" to xset i1_GrowItem of window "Picture Picker" to trueif there is a window "a" thenclose window "a"end ifelse if isFile(ICNfilename) and the optionKey = DOWN thenget windowScript("Picture Picker")set i1_Style of window "Picture Picker" to "Standard"set i1_Text of window "Picture Picker" to pListset i1_GrowItem of window "Picture Picker" to trueelse if the optionKey = UP thenget windowScript("Picture Picker")set i1_Style of window "Picture Picker" to "Standard"set i1_Text of window "Picture Picker" to pListset i1_GrowItem of window "Picture Picker" to trueelsesend BuildListOfICNs to backgroundend ifend ifend getPICTfunction thispathget the value of word 2 of the long name of this stackdelete char (length of it - length of short name of this stack)+1 ¬to (Length of it) of itput it into checkPathreturn checkPathend thispathfunction discNameget LocateF()delete last char of itreturn itend discNameon slideShowglobal pList,windowName,pList,ifSound,theOid,paletteName,ifSlideShow,stopShowput true into ifSlideShowput false into stopShowhide window paletteNamehide menubarrepeatif the mouseClick or stopShow then exit repeatif there is a window theOid then close window theOidshowNextput the ticks into Start_Ticksrepeatif the mouseClick or stopShow thenput true into stopShowput false into ifSlideShowplay stopcreatePaletteshow window paletteNameshow menubarexit slideShowend ifif ifSound thenif the sound is "done" or stopShow thenexit repeatend ifelse if the ticks - Start_Ticks > 300 then exit repeatend repeatend repeatshow menubarput true into stopShowput false into ifSlideShowend slideShowon doAboutglobal windowName,moviePlayingif moviePlaying ≠ TRUE thenget "File:" && windowNamelookUp itgetTextoidend ifend doAbouton getThumbglobal windowName,theOid,pDepth,pSize,pStyle,ThumbStyle,wIDif there is a window windowName then put ID of window windowName into wIDput " Thumbnails" into pSizeput ThumbStyle into pStyleshowPictureend getThumbon getSmallglobal windowName,theOid,pDepth,pSize,pStyle,SmallStyle,wIDif there is a window windowName then put ID of window windowName into wIDput " (small)" into pSizeput SmallStyle into pStyleshowPictureend getSmallon getFullglobal windowName,theOid,pDepth,pSize,pStyle,FullStyle,wIDif there is a window windowName then put ID of window windowName into wIDput empty into pSizeput FullStyle into pStyleshowPictureend getFullon QTshowsend getPreviews to backgroundend QTshowon playQTglobal QTFlick,moviePlaying,nowPlayingput FolderContents(locateF("Movies") & "Movies:",files,"noDialog") into QTlistif QTlist contains "Sorry" thenanswer "Sorry, no QuickTime™ movies were found." & return & return & ¬"(Try selecting “Switch Disks...” from the “Aris™” menu.)"elsekillOpenMoviesput TRUE into moviePlaying-- if there is a window "Movie Picker" then put "273,146" into MooVlocput main into MooVlocif word 3 of i27_Name of window "Movie Picker" = FALSE thenQTMovie openMovie,TallWindoid,locateF("Movies") & "Movies:" & nowPlaying,MooVlocelsehide window "Movie Picker"QTMovie openMovie,TallWindoid,locateF("Movies") & "Movies:" & nowPlaying,MooVlocend ifset WindowCloseMsg of window nowPlaying to movieClosedend ifend playQTon movieClosedif there is a window "Movie Picker" then show window "Movie Picker"end movieClosedon QTMovieglobal nowPlaying,movieListput nowPlaying & return after movieListpass QTMovieend QTMovieon killOpenMoviesglobal movieListrepeat with i = 1 to the number of lines of movieListif there is a window line i of movieList then close window line i of movieListend repeatput empty into movieListend killOpenMovieson QTcloseglobal moviePlayingput FALSE into moviePlayingend QTclose--• Textoidon openTextoid whichglobal theOid,windowName,oidRectput which into theOidif oidRect = empty then set the globalRect of window theOid to "196,32,446,113"else set the globalRect of window theOid to oidRectend openTextoidon closeTextoid whichglobal theOid,oidRectput the globalRect of window theOid into oidRectput empty into theOidend closeTextoidon getTextoidglobal windowName,theDataget (line 1 of theData)delete char 1 to 6 of itif there is not a window (it && "Info") thenTextoid it && "Info",theData,"Geneva","9"else close window (it && "Info")testError the Resultend getTextoidon TestError Whatif What ≠ emptythenbeepanswer Whatexit to HyperCardend ifend TestError--• Findon arisFind xglobal theData,windowName,numHit,searchHits,findMe,searchMeput empty into searchMeput locateF() & "data:aris.data" into fileNameopen file fileNamerepeatread from file fileName for 16384 -- max I/O bufferput it after searchMeif it = empty then exit repeatend repeatclose file fileNameend arisFindon lookUp xglobal theData,windowNameput locateF() & "data:aris.data" into fileNameput empty into theDataopen file fileNamerepeatread from file fileName for 16384put it after theDataif it = empty then exit repeatend repeatclose file filenamefindInXCMD theData,x,1,FALSEput item 4 of the result into startCharfindInXCMD theData,"≈",startChar,FALSEput item 5 of the result into endCharget char startChar to endChar of theDatadelete last line of it -- kill "≈"if last char of it = return then delete last char of it -- kill returnput it into thedataend lookUp--• Soundon checkSndglobal ifSoundif ifSound = TRUE thenif there is a menu "Aris™" thenset checkMark of menuItem "Sound" of menu "Aris™" to trueend ifelse if there is a menu "Aris™" thenset checkMark of menuItem "Sound" of menu "Aris™" to falseend ifend checkSnd--• Infoon checkInfoglobal ifInfoextractPrefsif ifInfo = TRUE thenset checkMark of menuItem "Show Info..." of menu "Aris™" to trueelse set checkMark of menuItem "Show Info..." of menu "Aris™" to falseend checkInfoon getInfoglobal windowNameif the checkMark of menuItem "Show Info..." of menu "Aris™" then doAboutend getInfo--• Preferenceson ExtractPrefsglobal dResult,ifBackground,ifSound,pSize,pStyle,theData,ifInfo,ifFullSize,ifSmall,ifThumb,FullStyle,SmallStyle,ThumbStyle,defaultSize,bgColor,ifXLget openPrefs("aris.prefs")put "Background=,Sound=,Info=,Size=,Style=,FullStyle=,SmallStyle=,ThumbStyle=,bgColor=,ifXL=" into lookWhatrepeat with i = 1 to the number of items in lookWhatget findInField(theData,item i of lookWhat)put item 1 of it + length of line item 2 of it of theData - 2 into stopCharput char item 1 of it + length of item i of lookWhat to stopChar of theData ¬into item i of intoWhatend repeatput item 1 of intoWhat into ifBackgroundput item 2 of intoWhat into ifSoundput item 3 of intoWhat into ifInfoput item 4 of intoWhat into pSizeput item 5 of intoWhat into pStyleput item 6 of intoWhat into FullStyleput item 7 of intoWhat into SmallStyleput item 8 of intoWhat into ThumbStyleput item 9 of intoWhat into bgColorput item 10 of intoWhat into ifXLput pSize into defaultSizeif pSize = empty then put TRUE into ifFullSizeelse put FALSE into ifFullSizeif pSize = " (small)" then put TRUE into ifSmallelse put FALSE into ifSmallif pSize = " Thumbnails" then put TRUE into ifThumbelse put FALSE into ifThumbend ExtractPrefson writePrefsglobal theDatacreateFolder SystemPath() & "Preferences" -- does nothing if it existsput SystemPath() & "Preferences:aris.prefs" into fileNameopen file fileNamewrite theData to file fileNameclose file fileNameend writePrefs--• Check Bit Depthon CheckBitDepthglobal pDepth,pSizeif last item of screenInfo(MAIN) = 342 then -- LCif pSize = empty thenput "8 Bit LC" into pDepthelse put "8 Bit" into pDepthexit checkBitDepthend ifif (word 1 of screenInfo(MAIN)) > 256 thenif pSize = empty thenput "24 Bit" into pDepthelse put "8 Bit" into pDepthelse if (word 1 of screenInfo(MAIN)) = 256 then put "8 Bit" into pDepthelse if (word 1 of screenInfo(MAIN)) < 256 then putAlert "",103end CheckBitDepth--• Functionsfunction PICTsizeglobal pSizeif pSize = empty then put " (small)" into pSizereturn pSizeend PICTsizefunction locateF xglobal altPath,pDepth,pSize,windowNameif altPath = empty then listDirreturn altPathend locateFon listDirglobal useAltPath,altPath,pDepth,pListif useAltPath ≠ TRUE then-- Check local path to see if we're in our own directoryget the value of word 2 of the long name of this stackdelete char (length of it - length of short name of this stack)+1 ¬to (Length of it) of itput it into checkPathif "aris.data" is in FolderContents(checkPath & "Data", "Files","noDialog") thenput checkPath into altPathput GetDir(checkPath & pDepth,"F","t=PICT","o=n") into pListput ChangeStr(pList,"[44]",",","all") into pListexit listDirend if-- check other SCSI drives for CD-ROMsget line 1 of cdDriveList("noDialog")if "Error" is not in it thenrepeat with i = 1 to the number of items of itput SCSIIDToName(item i of it) into SCSIPathif it ≠ empty thenif "aris.data" is in FolderContents(SCSIPath & "Data:", "Files","noDialog") thenput SCSIPath into altPathput GetDir(altPath & pDepth,"F","t=PICT","o=n") into pListput ChangeStr(pList,"[44]",",","all") into pListexit listDirend ifend ifend repeatend ifend ifrepeat-- Ask Userif "aris.data" is not in FolderContents(altPath & "Data:", "Files","noDialog") thenget FolderPath("Please locate the “Media Clips™” Disk or Folder for me.")if it = empty thenput empty into altPathexit listDirelseif it contains "Error" thenput empty into altPathelseput it into altPathnext repeatend ifend ifelseif "aris.data" is in FolderContents(altPath & "Data:", "Files","noDialog") thenput GetDir(altPath & pDepth,"F","t=PICT","o=n") into pListput ChangeStr(pList,"[44]",",","all") into pListexit listDirend ifend ifend repeatend listDirFunction openPrefs xglobal theDatacreateFolder SystemPath() & "Preferences"put SystemPath() & "Preferences:" & x into fileNameif IsFile(filename) thenopen file filenameread from file filename until emptyclose file filenameput it into theDataelseopen file fileNameput "BackGround=TRUE≈" & return & "Sound=TRUE≈" & return & ¬"Info=FALSE≈" & return & "Size= (small)≈" & return & ¬"Style=plain≈" & return & "FullStyle=Zoom≈" & return & "SmallStyle=Plain≈" &¬return & "ThumbStyle=Dialog≈" & return & "bgColor=256≈" ¬& return & "ifXL=≈" into theDatawrite theData to file fileNameclose file fileNameend ifreturn theDataend openPrefson checkColorglobal windowNameif there is a window windowName then hide window windowNameif word 1 of screenInfo(MAIN) ≤ 256 thenpicture "a",resource, dialog -- show to reset clutclose window "a"end ifend checkColor</script>
